home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aaq.d64 / x.dat < prev    next >
Text File  |  2007-02-28  |  523b  |  33 lines
  1. 8000 FOR J:=1 TO 40 DO //CROSS
  2. 8010  IF J=1 THEN
  3. 8020   L:=9
  4. 8030  ENDIF 
  5. 8040  IF J=2 THEN PRINT 3-40
  6. 8050  PENDOWN 
  7. 8060  FORWARD L
  8. 8070  PENUP 
  9. 8080  BACK L-.45
  10. 8090  LEFT 90
  11. 8100  FORWARD 1
  12. 8110  RIGHT 90
  13. 8120 ENDFOR J
  14. 8130 //
  15. 8140 PENUP 
  16. 8150 BACK 1
  17. 8160 RIGHT 90
  18. 8170 FORWARD 40
  19. 8180 LEFT 90
  20. 8190 FOR J:=1 TO 40 DO //CROSS2
  21. 8200  IF J=1 THEN
  22. 8210   L:=10
  23. 8220  ENDIF 
  24. 8230  IF J=2 THEN PRINT 3-40
  25. 8240  PENDOWN 
  26. 8250  FORWARD L
  27. 8260  PENUP 
  28. 8270  BACK L+.45
  29. 8280  LEFT 90
  30. 8290  FORWARD 1
  31. 8300  RIGHT 90
  32. 8310 ENDFOR J
  33.